home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tpsbk100.arc
/
MUSICDOS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-28
|
625b
|
25 lines
{$M 30000,0,$10000}
program MusicDOS;
uses DOS,SBBKMUZ;
begin
writeln('SoundBlaster Musical DOS - Copyright 1991, Trevor Robinson');
if paramcount <> 1 then begin
writeln(' Syntax: MUSICDOS musicfile');
halt(1);
end;
if not BackgroundInit then begin
writeln(' Not enough memory for music data');
halt(1);
end;
if PlayMuz(paramstr(1)) then begin
PlayingMode(RepeatSong);
swapvectors;
exec(getenv('COMSPEC'),'');
swapvectors;
WriteLn('SoundBlaster Musical DOS finished.');
end else
writeln(paramstr(1)+' not found.');
ShutdownBackground;
end.